home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / mags-docs / zcd / nonsolosoft.lha / NonSoloSoft / Listino / GotoURL.rexx < prev    next >
OS/2 REXX Batch file  |  1998-03-27  |  686b  |  47 lines
  1. /* GotoURL.rexx <URL> <Options> - © 1997 Alessandro Zummo */
  2. /*
  3.         URL:      http://....
  4.         Options:  Clip  : Salva l'URL nella ClipBoard
  5. */
  6.  
  7. PARSE ARG URL OPT
  8.  
  9.  
  10. IF SHOW('P','IBROWSE') THEN
  11. DO
  12.         ADDRESS 'IBROWSE'
  13.  
  14.         gotourl URL
  15.  
  16.         EXIT
  17. END
  18.  
  19. IF SHOW('P','VOYAGER') THEN
  20. DO
  21.         ADDRESS 'VOYAGER'
  22.  
  23.         openurl URL
  24.  
  25.         EXIT
  26. END
  27.  
  28.  
  29. IF SHOW('P','AWebControlPort') THEN
  30. DO
  31.         ADDRESS 'AWebControlPort'
  32.  
  33.         open URL
  34.  
  35.         EXIT
  36. END
  37.  
  38. ERROR:
  39.  
  40. IF EXISTS('C:RequestChoice') THEN
  41.  ADDRESS COMMAND 'RequestChoice TITLE="GotoURL.rexx" BODY="Devi caricare un browser compatibile!" "Ok" >NIL:'
  42. ELSE
  43.  say 'Devi caricare un browser compatibile!'
  44.  
  45.  
  46. EXIT
  47.